home *** CD-ROM | disk | FTP | other *** search
/ Shareware Super Platinum 8 / Shareware Super Platinum 8.iso / mac / PROGTOOL / FGL304E.ZIP;1 / EXPAS.ARJ / FGDOC / EXAMPLES / PASCAL / 08-08.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1994-01-24  |  641 b   |  35 lines
  1. {$M 16384,0,0}
  2.  
  3. program main;
  4. uses fgmain;
  5.  
  6. var
  7.   old_mode       : integer;
  8.   active, visual : integer;
  9.   page0, page1   : word;
  10.   status         : integer;
  11.  
  12. begin
  13.   old_mode := fg_getmode;
  14.   fg_setmode(4);
  15.   status := fg_allocate(1);
  16.  
  17.   fg_setpage(1);
  18.   active := fg_getpage;
  19.   visual := fg_getvpage;
  20.  
  21.   fg_setpage(0);
  22.   page0 := fg_getaddr;
  23.   fg_setpage(1);
  24.   page1 := fg_getaddr;
  25.  
  26.   status := fg_freepage(1);
  27.   fg_setmode(old_mode);
  28.   fg_reset;
  29.  
  30.   writeln('Active page is ',active);
  31.   writeln('Visual page is ',visual);
  32.   writeln('Page 0 address is ',page0);
  33.   writeln('Page 1 address is ',page1);
  34. end.
  35.